Import Libraries
library("tidyverse")
Data Load
reddit <- read.csv("RS_2017-09_filtered70.csv")
reddit
LS0tCnRpdGxlOiAiUHJvamVjdCBUYXNrIDEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCiMgSW1wb3J0IExpYnJhcmllcwoKYGBge3J9CmxpYnJhcnkoInRpZHl2ZXJzZSIpCmBgYAoKIyBEYXRhIExvYWQKCmBgYHtyfQpyZWRkaXQgPC0gcmVhZC5jc3YoIlJTXzIwMTctMDlfZmlsdGVyZWQ3MC5jc3YiKQpgYGAKCmBgYHtyfQpyZWRkaXQKYGBgCgo=